home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 90 / 090.d81 / bytes 90 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  6.9 KB  |  263 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 15 ifa=0thena=1:load"scroll c000.o",dv,1
  3. 16 dima$(226)
  4. 20 gosub70:gosub300
  5. 30 print"[144]":print""
  6. 40 print "load";chr$(34);f$;chr$(34)","dv
  7. 50 print"run"
  8. 60 poke631,13:poke632,13:poke198,2:end
  9. 70 print"[147]":poke53280,0:poke53281,0:iffthenreturn
  10. 80 poke214,10:print"[145]";
  11. 85 print"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
  12. 90 fori=1to12:print"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next:print""
  13. 100 fori=217to242:pokei,peek(i)or128:next
  14. 110 poke214,12:print"[145]"tab(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  15. 120 fori=1to7:printtab(2)"[155]                                    [146][223]":next
  16. 130 printtab(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
  17. 140 print"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
  18. 150 poke214,14:print"[145][155]";
  19. 160 fori=1to5:reada$:gosub170:next:goto180
  20. 170 printspc(20-len(a$)/2)""a$:a$="":return
  21. 180 f$="hello connect"
  22. 185 poke214,24:print"[145]"spc(11)"[158][195][210][211][210]-[213]p/[196]own/[209][158]uit":return
  23. 190 data"[211][195][210][197][197][206][160][211][195][210][207][204][204].[207] [196][197][205][207]","by [202]eff [202]ones"
  24. 200 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #90","[211]ubscriptions 1-800-831-2694"
  25. 210 data"[195]opyright ([195]) 1991 [211]oftdisk"
  26. 300 fori=1to225:reada$(i):next
  27. 310 print"":fori=1to8:print"                                       ";:next
  28. 320 fori=217to242:pokei,peek(i)or128:next
  29. 330 print"[153]";:fori=1to8:print"                                       ":next
  30. 340 print"";:fori=1to8:print""a$(i):next:i=8
  31. 350 geta$:ifa$<>""thenifa$<>"[145]"thenifa$<>"q"then350
  32. 360 ifa$=""thenifi>=226then350
  33. 370 ifa$=""theni=i+1:sys49152,0,38,0,7,0:sys49155,160,13:print""a$(i):goto350
  34. 380 ifa$="[145]"thenifi<=8then350
  35. 390 ifa$="[145]"theni=i-1:sys49152,0,38,0,7,1:sys49155,160,13:print""a$(i-7):goto350
  36. 400 fori=0to9:poke781,i:sys59903:next:return
  37. 1000 data"   [208] [210] [201] [206] [212]   [193] [212]   [210] [207] [213] [212] [201] [206] [197]"
  38. 1010 data""
  39. 1020 data"    [212]here are three ways to do it:"
  40. 1030 data""
  41. 1040 data"                 -1-"
  42. 1050 data""
  43. 1060 data"poke214,row:poke211,col:sys58732"
  44. 1070 data""
  45. 1080 data"                 -2-"
  46. 1090 data""
  47. 1100 data"poke214,row-1:print:printtab(col)"
  48. 1110 data""
  49. 1120 data"                 -3-"
  50. 1130 data""
  51. 1140 data"poke214,row:print'[up][down]..."
  52. 1150 data""
  53. 1160 data""
  54. 1170 data""
  55. 1180 data"          [204] [201] [206] [197]   [204] [201] [206] [203] [211]"
  56. 1190 data""
  57. 1200 data"    [201]f you can't make the cursor land"
  58. 1210 data"where you want, you need to clear the"
  59. 1220 data"line links.  [201]t only takes a moment:"
  60. 1230 data""
  61. 1240 data"fori=217to242:pokei,peek(i)or128:next"
  62. 1250 data""
  63. 1260 data"   [206]ow all 25 lines on the screen are"
  64. 1270 data"considered separate, not linked."
  65. 1280 data""
  66. 1290 data""
  67. 1300 data""
  68. 1310 data"           [211] [212] [207] [208]   [203] [197] [217]"
  69. 1320 data""
  70. 1330 data""
  71. 1340 data"[196][201][211][193][194][204][197]: poke788,52"
  72. 1350 data""
  73. 1360 data"[206]ote: [212][201]$ isn't updated now."
  74. 1370 data""
  75. 1380 data"[197][206][193][194][204][197]:  poke788,49"
  76. 1390 data""
  77. 1400 data"[196]isable stop/restore:"
  78. 1410 data""
  79. 1420 data"poke808,239"
  80. 1430 data""
  81. 1440 data"[206]ote: [196][207][206]'[212] try to save anything now."
  82. 1450 data"[201]t will be garbage."
  83. 1460 data""
  84. 1470 data"re-enable: poke 808,237"
  85. 1480 data""
  86. 1490 data""
  87. 1500 data"        [198] [193] [211] [212] [197] [210]   [195] - 6 4"
  88. 1510 data""
  89. 1520 data"   [207]n a 128 in the [195]-64 mode you can"
  90. 1530 data"switch to the 2 megahertz speed:"
  91. 1540 data"poke53296,255 [206][207][212][197]: the screen"
  92. 1550 data"blanks.  [210]eturn to normal:"
  93. 1560 data"poke53265,0."
  94. 1570 data""
  95. 1580 data"    [217]ou can blank the screen for a"
  96. 1590 data"slight speed increase:"
  97. 1600 data""
  98. 1610 data"     poke53265,peek(53265)and239"
  99. 1620 data""
  100. 1630 data"[212]o unblank: poke53265,peek(53265)or16"
  101. 1640 data""
  102. 1650 data""
  103. 1660 data"         [203][197][217][194][207][193][210][196] [211][195][193][206] [195][207][206][212][210][207][204]"
  104. 1670 data""
  105. 1680 data""
  106. 1690 data"    [217]ou can vary the time that the"
  107. 1700 data"[195]-64 uses to scan the keyboard.  [212]his"
  108. 1710 data"frees up the processor, giving it more"
  109. 1720 data"time to devote to your program."
  110. 1730 data""
  111. 1740 data"poke56325,0 for minimal keyboard scan"
  112. 1750 data"poke56325,255 for maximum keyboard"
  113. 1760 data"poke56325,64 normal"
  114. 1770 data""
  115. 1780 data"          [198] [201] [204] [197] [206] [193] [205] [197] [211]"
  116. 1790 data""
  117. 1800 data"[196]isplay filename last used:"
  118. 1810 data""
  119. 1820 data"            sys62913"
  120. 1830 data""
  121. 1840 data"[211][195][210][193][212][195][200][201][206][199] [193] [198][201][204][197]"
  122. 1850 data""
  123. 1860 data"[201]f you have a cartridge installed:"
  124. 1870 data""
  125. 1880 data"@scratch:filename"
  126. 1890 data""
  127. 1900 data"[198]rom [194][193][211][201][195]:"
  128. 1910 data""
  129. 1920 data"open15,8,15,'scratch:filename':close15"
  130. 1930 data""
  131. 1940 data""
  132. 1950 data""
  133. 1960 data""
  134. 1970 data"           [215] [201] [204] [196] [195] [193] [210] [196] [211]"
  135. 1980 data""
  136. 1990 data"* will open the last file loaded, or"
  137. 2000 data"the first file on the disk."
  138. 2010 data""
  139. 2020 data"[194][207]* will open the first file that"
  140. 2030 data"begins with '[194][207]'.  [201]n scratching, it"
  141. 2040 data"will scratch [197][214][197][210][217] file that begins"
  142. 2050 data"with '[194][207]'."
  143. 2060 data""
  144. 2070 data"[194][207]*=p will open the first file that"
  145. 2080 data"begins with '[194][207]' that is also a"
  146. 2090 data"program file.  [201]n scratching, it will"
  147. 2100 data"scratch [207][206][204][217] the [208][210][199] files that start"
  148. 2110 data"with '[194][207]'.  [212]he first letter of the"
  149. 2120 data"file type works for [210][197][204], [211][197][209] and [213][211][210]"
  150. 2130 data"also."
  151. 2140 data""
  152. 2150 data"          [215][201][204][196][195][193][210][196][211] [193][206][196] 1581's"
  153. 2160 data""
  154. 2170 data""
  155. 2180 data""
  156. 2190 data"    [198]or 1541's, 1571's and"
  157. 2200 data"compatibles, anything following the *"
  158. 2210 data"wildcard will be ignored.  [215]ith"
  159. 2220 data"1581's, you can continue pattern"
  160. 2230 data"matching even after the *.  [198]or"
  161. 2240 data"instance *.c could find all your [195]"
  162. 2250 data"source files."
  163. 2260 data""
  164. 2270 data"      [205] [207] [210] [197]   [215] [201] [204] [196] [195] [193] [210] [196] [211]"
  165. 2280 data""
  166. 2290 data"? will open the first file whose"
  167. 2300 data"filename is one character long.  [201]n"
  168. 2310 data"scratching it will scratch [197][214][197][210][217] one"
  169. 2320 data"character filename.  [201]t's also a"
  170. 2330 data"great way to scratch away those ','"
  171. 2340 data"files that can get on your disks."
  172. 2350 data""
  173. 2360 data"?[193] will open '[195][193]', '[212][193]', etc., or"
  174. 2370 data"scratch all two character files that"
  175. 2380 data"end in '[193]'."
  176. 2390 data""
  177. 2400 data"[204]? will open '[204][193]' or '[204][208]' or the"
  178. 2410 data"first two-character file that begins"
  179. 2420 data"with '[204]'."
  180. 2430 data""
  181. 2440 data"[217]ou can mix ? and *, but for 1541's"
  182. 2450 data"and 71's the * is the last part of a"
  183. 2460 data"wildcard word that is recognized."
  184. 2470 data""
  185. 2480 data""
  186. 2490 data""
  187. 2500 data"    [196] [201] [211] [208] [204] [193] [217]   [193]   [196] [207] [207] [196] [204] [197]"
  188. 2510 data""
  189. 2520 data"100 sys57812'ddfile',8,0:poke780,0:"
  190. 2530 data"poke781,0:poke782,92:sys65493:rem load"
  191. 2540 data""
  192. 2550 data"110 poke56,92:poke55,0:clr"
  193. 2560 data""
  194. 2570 data"120 poke53265,59:poke53272,120:poke"
  195. 2580 data"56576,peek(56576)and254:rem bit on"
  196. 2590 data""
  197. 2600 data"130 geta$:ifa$=''then130:rem wait key"
  198. 2610 data""
  199. 2620 data"140 poke53265,27:poke53272,21:poke"
  200. 2630 data"56576,peek(56576)or1:rem bit off"
  201. 2640 data""
  202. 2650 data"    [212]his routine will display a"
  203. 2660 data"[196][207][207][196][204][197]! pic and wait for a key."
  204. 2670 data""
  205. 2680 data"       [214] [193] [210] [201] [207] [213] [211]   [211] [212] [213] [198] [198]"
  206. 2690 data""
  207. 2700 data"poke199,1 print reverse"
  208. 2710 data"poke199,0 normal"
  209. 2720 data""
  210. 2730 data"poke650,128 all keys repeat"
  211. 2740 data"poke650,64  no keys repeat - even [195][210][211][210]"
  212. 2750 data"poke650,0   normal"
  213. 2760 data""
  214. 2770 data"[203]eyboard buffer is at 631-640"
  215. 2780 data"[195]lear keyboard buffer: poke198,0"
  216. 2790 data""
  217. 2800 data"[196]etect [211][200][201][198][212] keys: peek(653)"
  218. 2810 data"1=[211][200][201][198][212] 2= [195][207][205][205][207][196][207][210][197] 4=[195][207][206][212][210][207][204]"
  219. 2820 data"[195]ombination keypresses are added"
  220. 2830 data""
  221. 2840 data"[215]ait for control key: wait653,4"
  222. 2850 data""
  223. 2860 data"      [214] [193] [210] [201] [207] [213] [211]   [211] [212] [213] [198] [198]   2"
  224. 2870 data""
  225. 2880 data"[197]xtended color mode:"
  226. 2890 data""
  227. 2900 data"[197]nable: poke53265,peek(53265)or64"
  228. 2910 data"[196]isable: poke53265,peek(53265)and191"
  229. 2920 data""
  230. 2930 data"[205]ulticolor [195]haracter [205]ode:"
  231. 2940 data""
  232. 2950 data"[197]nable: poke53270,peek(53270)or16"
  233. 2960 data"[196]isable: poke53270,peek(53270)and239"
  234. 2970 data""
  235. 2980 data"[198]orce quote mode (to print symbols):"
  236. 2990 data""
  237. 3000 data"poke212,1  to enter quote mode"
  238. 3010 data"poke212,0  to exit"
  239. 3020 data""
  240. 3030 data"      [215] [193] [201] [212] [201] [206] [199]   [193] [210] [207] [213] [206] [196]"
  241. 3040 data""
  242. 3050 data"[215]ait for keypress: poke198,0:wait198,1"
  243. 3060 data""
  244. 3070 data"[215]ait for fire button port 1:"
  245. 3080 data""
  246. 3090 data"         wait 56465,16,16"
  247. 3100 data""
  248. 3110 data"[215]ait for fire button port 2"
  249. 3120 data""
  250. 3130 data"         wait 56464,16,16"
  251. 3140 data""
  252. 3150 data"[215]ait until no key is pressed:"
  253. 3160 data""
  254. 3170 data"         wait197,64"
  255. 3180 data""
  256. 3190 data"[215]ait 4.25 seconds:"
  257. 3200 data""
  258. 3210 data"    ti$='000000':wait161,255"
  259. 3220 data""
  260. 3230 data""
  261. 3240 data"      **** [194]ottom [207]f [212]ext ****"
  262. 10000 open15,8,15,"s0:bytes 90":close15:save"bytes 90",8:end
  263.